home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
FGL402F.ZIP
/
EXFOR.ARJ
/
TEMP
/
14-02.FOR
< prev
next >
Wrap
Text File
|
1995-01-20
|
349b
|
20 lines
$INCLUDE: 'C:\FG\FASTGRAF.FI'
PROGRAM MAIN
INTEGER*1 ESC
PARAMETER (ESC=27)
INTEGER*1 KEY, AUX
CALL FG_INITPM
10 CALL FG_WAITFOR(9)
CALL FG_INTKEY(KEY,AUX)
WRITE(6,1000) KEY, AUX
IF (KEY .NE. ESC) GO TO 10
STOP ' '
1000 FORMAT(' key = ',I3,' aux = ',I3)
END